﻿Imports System.Text
Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports Logistica.Entities

<TestClass()> Public Class TipoMovimientoDOTest

    <TestMethod()>
    Public Sub ListarTipoMovimientoTest()
        Dim target As New TipoMovimientoDO
        Dim actual As List(Of TipoMovimientoBE) = target.Listar

        Assert.IsNotNull(actual)
    End Sub



    <TestMethod()>
    Public Sub InsertarTipoMovimientoTest()
        Dim target As New TipoMovimientoDO
        Dim infoTipoMovimiento As New TipoMovimientoBE With {.Nombre = "TipoMovimiento Ejemplo 1"}
        Dim idTipoMovimiento As Integer = target.Insertar(infoTipoMovimiento)

        Assert.IsTrue(idTipoMovimiento > 0)
    End Sub

    <TestMethod()>
    Public Sub ActualizarTipoMovimientoTest()
        Dim target As New TipoMovimientoDO
        Dim infoTipoMovimiento As New TipoMovimientoBE _
            With {.Id = 1, _
                  .Nombre = "TipoMovimiento Ejemplo ", _
                  .Descripcion = "Descripcion TipoMovimiento 1000"}

        target.Actualizar(infoTipoMovimiento)

        Dim infoTipoMovimientoActualizado As TipoMovimientoBE = target.Obtener(infoTipoMovimiento)

        Assert.AreEqual(infoTipoMovimiento.Id, infoTipoMovimientoActualizado.Id)
        Assert.AreEqual(infoTipoMovimiento.Descripcion, infoTipoMovimientoActualizado.Descripcion)

    End Sub

    <TestMethod()>
    Public Sub EliminarTipoMovimientoTest()
        Dim target As New TipoMovimientoDO
        Dim infoTipoMovimiento As New TipoMovimientoBE With {.Id = 3}
        target.Eliminar(infoTipoMovimiento)

        Dim infoTipoMovimientoEliminado As TipoMovimientoBE = target.Obtener(infoTipoMovimiento)

        Assert.AreEqual(infoTipoMovimientoEliminado.Id, 0)
    End Sub

End Class